# LISS
length(first_stage_liss$residuals)
summary(first_stage_liss)$r.squared

fs_liss <- tidy(first_stage_liss)
fs_liss <- kable(fs_liss, format = "latex", digits = 3, booktabs = TRUE)
writeLines(fs_liss,   file.path(graph_dir, "bell_FS_LISS.txt"))